home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tools / arexx-scripts / arexx-pack / apiglibv33.lha / APIG_Lib / easyrequest1.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-02-05  |  866 b   |  33 lines
  1. /* Example of EasyRequester */
  2.  
  3. x = addlib("apig.library",0,-30,0)
  4.  
  5. call set_apig_globals()
  6.  
  7. portname = "easyreq1_port"     
  8. p = openport(portname)  
  9. WaitForPort portname  
  10.  
  11. wintitle = "Easy Requester Example"
  12. winidcmp = CLOSEWINDOW 
  13. winflags = WINDOWCLOSE+WINDOWDRAG+WINDOWSIZING+WINDOWDEPTH+GIMMEZEROZERO
  14.  
  15. win = openwindow(portname,0,0,640,200,2,4,winidcmp,winflags,wintitle,null(),0,0,0)
  16.  
  17. wtext = "This is your EasyRequester"
  18.  
  19. rtext =          "Say Buddy This is your Easy Requester " '0a'x '0a'x
  20. rtext = rtext || "And this is just the Second Line " '0a'x
  21. rtext = rtext || "And this is just the Third Line " '0a'x
  22. rtext = rtext || "And this is just the Fourth Line " '0a'x
  23. rtext = rtext || "And this is just the Fifth Line " '0a'x
  24.  
  25. gtext = " OKAY "  /* you must provide at least one Gadget */
  26.  
  27. x = easyrequest(win,wtext,rtext,gtext)
  28.  
  29. call CLOSEWINDOW(win)
  30.  
  31. exit
  32.  
  33.